home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / e / ddmoduls.lha / dd_Modules / dd_libraries / dd_sharedlibstest.e < prev   
Text File  |  1995-02-26  |  462b  |  21 lines
  1. MODULE 'utility'
  2. MODULE 'utility/tagitem'
  3. MODULE 'lowlevel'
  4.  
  5. MODULE '*dd_sharedlibs'
  6.  
  7. DEF libs:sharedlibs
  8.  
  9. PROC main()
  10.   NEW libs.new([DDA_LIB_LibraryList,
  11.                   [
  12.                    ['utility.library',37,{utilitybase}]:libentry,
  13.                    ['lowlevel.library',39,{lowlevelbase}]:libentry
  14.                   ],
  15.                 TAG_DONE])
  16. ->     libs.do(DDM_LIB_OpenLibrary,{lowlevelbase})
  17.  
  18.   -> PrintF('Libraries opened\n')
  19.   END libs
  20. ENDPROC
  21.